home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 18 / CU Amiga Magazine's Super CD-ROM 18 (1997)(EMAP Images)(GB)[!][issue 1998-01].iso / CUCD / Utilities / Laplace / Projects / physic < prev    next >
Encoding:
Text File  |  1997-01-11  |  252 b   |  29 lines
  1. #LAPLACE 1
  2. #->
  3. include("physic.lh")
  4. #<-
  5. #->
  6. const(m),v_0:=7e4,r_0:=5e10
  7. #<-
  8. #->
  9. L=r_0*m*v_0
  10. #<-
  11. #->
  12. E_pot = -G*m*m_sun/r_0
  13. #<-
  14. #->
  15. E_kin = 1/2*m*v_0^2
  16. #<-
  17. #->
  18. E=E_kin + E_pot
  19. #<-
  20. #->
  21. ex=(1+2*E*L^2/((G*m*m_sun)^2*m))^(1/2)
  22. #<-
  23. #->
  24. eval(ex)
  25. #<-
  26. #->
  27.  
  28. #<-
  29.